home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 2 / Assassins 2 - Ultimate Games No. 2 (1995)(Weird Science)[!][Amiga-CD32-CDTV].iso / misc / kids_disk_2 / dred / dred.amosSourceCode
AMOS Source Code  |  1993-08-01  |  1KB  |  69 lines
  1. OTHERGATES
  2. '
  3. Procedure OTHERGATES
  4. B$=Command Line$
  5. SH=256 : LE=25
  6. If Ntsc Then SH=200 : LE=19
  7. Screen Open 0,640,SH,8,Hires
  8. Hide : Flash Off : Curs Off 
  9. Palette $445,$FF0,$FFF,$F0,$F,$777,$0,$F74
  10. Flash 6,"(F0f,20)(445,20)(ff0,20)(445,20)(00f,20)(445,20)(000,20)(445,20)"
  11. Flash 7,"(445,20)(fff,20)(445,20)(0f0,20)(445,20)(ff0,20)(00f,20)(445,20)(00f,20)"
  12. Colour Back Colour(0)
  13. Cls 0
  14. HERE:
  15. Open In 1,B$
  16. L=Lof(1)
  17. FLG=0
  18. Paper 0
  19. Curs Off 
  20. Cls 
  21. C=0
  22. PP=1
  23. Z$=""
  24. For N=1 To L
  25.    Pen 3
  26.    X$=Input$(1,1)
  27.    Z$=Z$+X$
  28.    If Asc(X$)=10
  29.       Print " ";
  30.       Print Z$ : Cup : Inc C : Z$=""
  31.       If C=LE
  32.          Print : Pen 2 : Centre ">>                                     <<"
  33.          Pen 6
  34.          Locate 23, : Print "Left to continue ";
  35.          Pen 2 : Print "or";
  36.          Locate 43, : Pen 7 : Print "Right to quit ";
  37.          Pen 2 : Print : Print : Centre "Page" : Print PP : Inc PP
  38.          MK=0
  39.          Repeat : Until Mouse Click
  40.          MK=Mouse Key
  41. Print MK
  42.          If MK=2
  43.             Goto THERE
  44.          Else Cls : Locate 0,1 : C=0
  45.          End If 
  46.       End If 
  47.    End If 
  48. Next N
  49. Close 1
  50. Pen 1
  51. Print : Print : Centre "End Of This Text File" : Print : Print 
  52. Centre "click LEFT button to READ this file AGAIN"
  53. Print : Print 
  54. Centre "or the RIGHT button to RETURN to main menu."
  55. Repeat 
  56. Until Mouse Click
  57. K=Mouse Key
  58. If K=1 Then Cls : Goto HERE
  59. THERE:
  60. Flash Off 
  61. Cls 
  62. Set Font 5
  63. Colour 2,$F0
  64. Ink 2,0
  65. Text 270,100,"Loading...."
  66. Show 
  67. Command Line$="back"
  68. Run "ram:Over_to"
  69. End Proc